home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-11
/
vs_804.zip
/
MAINTSRC.EXE
/
S_DICTNT.PRG
< prev
next >
Wrap
Text File
|
1991-11-25
|
2KB
|
87 lines
* Filename.......: S_DICTNT.PRG
*
* Author.........: Vernon E. Six, Jr.
*
* Last Update....: Mon 11/25/91 16:37:21
*
* Created using..: VSG - Vern Six's Get System v1.00.53a
*
* Notice.........: CopyRight (c) 1991 by Vernon E. Six, Jr.
* All Rights Reserved World Wide!
#include "INKEY.CH"
FUNCTION S_DICTNTX(pc_Title,pc_FootNote)
*══════════════════════════════════════════════════════════*
* Select a NTX *
*══════════════════════════════════════════════════════════*
LOCAL n_Top := 5
LOCAL n_Left := 5
LOCAL n_Bottom := 20
LOCAL n_Right := 76
LOCAL c_Title := IF(pc_Title=NIL," Which Index? ",pc_Title)
LOCAL c_FootNote := IF(pc_FootNote=NIL," Press <F1> For Help ",pc_FootNote)
LOCAL n_Palette := 5
LOCAL a_ColObjs := {}
LOCAL n_Key := 0
LOCAL c_OldHelp := ""
LOCAL c_RetVal
LOCAL ab_KeyBlocks := {}
LOCAL an_Keys := {}
_DICTNTX->( VS_SetOrder("1") )
AADD(a_ColObjs, TBColumnNew( "Order NtxName Key", {||L_DictNtx()}) )
*══════════════════════════════════════════════════════════*
AADD(ab_KeyBlocks, {||E_DICTNTX(.T.)} )
AADD(an_Keys, K_F10)
*══════════════════════════════════════════════════════════*
AADD(ab_KeyBlocks, {||E_DICTNTX(.F.)} )
AADD(an_Keys, K_INS)
*══════════════════════════════════════════════════════════*
AADD(ab_KeyBlocks, {||D_Ntx()} )
AADD(an_Keys, K_DEL)
*══════════════════════════════════════════════════════════*
AADD(ab_KeyBlocks, {||.T.} )
AADD(an_Keys, K_ENTER)
*══════════════════════════════════════════════════════════*
DO WHILE .T.
c_OldHelp = VS_HelpPrg( "S_DICTNTX" )
n_Key = _DICTNTX->(VS_Browse(n_Top,n_Left,n_Bottom,n_Right,c_Title,;
c_FootNote, n_Palette, a_ColObjs, _DICTHDR->DBF_NAME,{|x|ALLTRIM(x)==ALLTRIM(_DICTNTX->DBF_NAME)}, ab_KeyBlocks, an_Keys ) )
VS_HelpPrg( c_OldHelp )
DO CASE
CASE n_Key = K_ESC
c_RetVal = ""
EXIT
CASE n_Key = K_ENTER
c_RetVal = _DICTNTX->NTX_NAME
EXIT
ENDCASE
ENDDO
RETURN(c_RetVal)
*══ EOF: S_DICTNTX() ═════════════════════════════════════════════════════════*